home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 122 / 122side2.d64 / xcalc 22.s < prev    next >
Text File  |  2022-08-29  |  11KB  |  920 lines
  1. .org 2048
  2. ;.mem
  3. .obj "@0:xcalc 22"
  4.  
  5. zp     = 97
  6. zpc    = 99
  7. zpe    = 101
  8. zp2    = 247
  9.  
  10. chrout = $ffd2
  11. getin  = $ffe4
  12. plot   = $fff0
  13. curpos = 211
  14.  
  15. lda #0    
  16. sta 53281
  17. sta 53280
  18. lda #1
  19. sta mflag
  20. jsr startm
  21.  
  22. start =*
  23.  
  24. jsr titlescreen
  25. - jsr getin
  26. sta temp
  27. jsr checkm
  28. lda temp
  29. beq -
  30. cmp #49
  31. bcc -
  32. cmp #57
  33. bcs -
  34. cmp #56
  35. bne +
  36. jsr stopm
  37. lda #23
  38. sta 53272
  39. rts ; rem loadstar
  40. + cmp #55
  41. bne +
  42. jsr toggle
  43. jmp -
  44. + sec
  45. sbc #49
  46. sta puzzle
  47. jsr screen1
  48. lda <1199
  49. sta zpc
  50. lda >1199
  51. sta zpc+1
  52. lda #0
  53. sta row
  54. sta colm
  55. jsr printpuzzle
  56. jsr printkeys
  57.  
  58. input =*
  59.  
  60. ldy #0
  61. lda (zpc),y
  62. eor #128
  63. sta (zpc),y
  64. jsr delay
  65. lda (zpc),y
  66. eor #128
  67. sta (zpc),y
  68. jsr delay
  69. jsr checkm
  70. jsr getin
  71. beq input
  72. cmp #29  
  73. bne +
  74. jsr right
  75. jmp input
  76. + cmp #157
  77. bne +
  78. jsr left
  79. jmp input
  80. + cmp #140
  81. bne +
  82. jsr hardcopy
  83. jmp input
  84. + cmp #17
  85. bne +
  86. jsr down
  87. jmp input
  88. + cmp #145
  89. bne +
  90. jsr up
  91. jmp input
  92. + cmp #136
  93. bne +
  94. jmp hint
  95. + cmp #32
  96. beq +
  97. jmp s2
  98. + ldy #0
  99. lda (zpc),y
  100. cmp #32
  101. bne ++
  102. + jmp input
  103. + sta temp
  104. ldy #0
  105. - lda 1756,y
  106. cmp #32
  107. beq +
  108. iny
  109. iny
  110. cpy #17
  111. bne -
  112. + lda temp
  113. sta 1756,y
  114. ldy #0
  115. lda #32
  116. sta (zpc),y
  117. jmp input
  118. s2 cmp #133;f1
  119. bne +
  120. jmp start
  121. + cmp #137;f2
  122. bne +
  123. jmp solutions
  124.  
  125. + cmp #49
  126. bcs +
  127. jmp input
  128. + cmp #58
  129. bcc s1
  130. jmp input
  131. s1 sta temp
  132. ldy #0
  133. lda (zpc),y
  134. cmp #32
  135. bne ++
  136. ldy #0
  137. - lda 1756,y
  138. cmp temp
  139. beq +
  140. iny
  141. cpy #17
  142. bne -
  143. jmp input
  144. + lda #32
  145. sta 1756,y
  146. ldy #0
  147. lda temp
  148. sta (zpc),y
  149. + jmp check
  150. + jmp input
  151.  
  152. hint =*
  153.  
  154. lda puzzle
  155. asl
  156. tax
  157. lda answer,x
  158. sta zpe
  159. inx
  160. lda answer,x
  161. sta zpe+1
  162.  
  163. lda #0
  164. sta counter
  165. sta temp2
  166. - cmp row
  167. beq +
  168. clc
  169. lda temp2
  170. adc #10
  171. sta temp2
  172. inc counter
  173. lda counter
  174. jmp -
  175.  
  176. + lda colm
  177. asl
  178. asl
  179. clc
  180. adc temp2
  181. tay
  182. lda (zpe),y    
  183. jmp s1
  184.  
  185. up =*
  186.  
  187. jsr sub160
  188. lda row
  189. cmp #255
  190. bne +
  191. jsr add160
  192. + rts
  193.  
  194. down =*
  195.  
  196. jsr add160
  197. lda row
  198. cmp #3
  199. bne +
  200. jsr sub160
  201. + rts
  202.  
  203. add4 =*
  204.  
  205. clc
  206. lda zpc
  207. adc #4
  208. sta zpc
  209. lda zpc+1
  210. adc #0
  211. sta zpc+1
  212. inc colm
  213. rts
  214.  
  215. sub4 =*
  216.  
  217. sec
  218. lda zpc
  219. sbc #4
  220. sta zpc
  221. lda zpc+1
  222. sbc #0
  223. sta zpc+1
  224. dec colm
  225. rts
  226.  
  227. add80zp =*
  228.  
  229. clc
  230. lda zp
  231. adc #80
  232. sta zp
  233. lda zp+1
  234. adc #0
  235. sta zp+1
  236. rts
  237.  
  238. add160 =*
  239.  
  240. clc
  241. lda zpc
  242. adc #160
  243. sta zpc
  244. lda zpc+1
  245. adc #0
  246. sta zpc+1
  247. inc row
  248. rts
  249.  
  250. sub160 =*
  251.  
  252. sec
  253. lda zpc
  254. sbc #160
  255. sta zpc
  256. lda zpc+1
  257. sbc #0
  258. sta zpc+1
  259. dec row
  260. rts
  261.  
  262. right =*
  263.  
  264. jsr add4
  265. lda colm
  266. cmp #3
  267. bne +
  268. jsr sub4
  269. + rts
  270.  
  271. left =*
  272.  
  273. jsr sub4
  274. lda colm
  275. cmp #255
  276. bne +
  277. jsr add4
  278. + rts
  279.  
  280. write =*
  281.  
  282. ldy #0
  283. pla
  284. sta zp
  285. pla
  286. sta zp+1
  287. - inc zp
  288. bne +
  289. inc zp+1
  290. + lda (zp),y
  291. beq +
  292. jsr chrout
  293. bne -
  294. + lda zp+1
  295. pha
  296. lda zp
  297. pha
  298. rts
  299.  
  300. delay =*
  301.  
  302. ldx #25
  303. - ldy #0
  304. - dey
  305. bne -
  306. dex
  307. bne --
  308. rts
  309.  
  310. ringbell =*
  311.  
  312. lda mflag
  313. beq +
  314. rts
  315. + lda #21
  316. sta 54296
  317. lda #9
  318. sta 54277
  319. lda #0
  320. sta 54278
  321. lda #48
  322. sta 54273
  323. lda #32
  324. sta 54276
  325. lda #33
  326. sta 54276
  327. rts
  328.  
  329. screen1 =*
  330.  
  331. jsr write
  332. .byte 147,156,18
  333. .asc "              cross calc #              "
  334. .byte 13,13,154,146
  335. .asc "              "
  336. .byte 176,96,178,96,178,96,178,96,178,96,178,96,96,174,13
  337. .asc "              {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}  {SHIFT--}"
  338. .byte 13
  339. .asc "              {CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{CBM-X}"
  340. .byte 13
  341. .asc "              {SHIFT--} {SHIFT--}{CBM-+}{SHIFT--} {SHIFT--}{CBM-+}{SHIFT--} {SHIFT--}"
  342. .byte 13
  343. .asc "              {CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}"
  344. .byte 174,13
  345. .asc "              {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}  {SHIFT--}"
  346. .byte 13
  347. .asc "              {CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{CBM-X}"
  348. .byte 13
  349. .asc "              {SHIFT--} {SHIFT--}{CBM-+}{SHIFT--} {SHIFT--}{CBM-+}{SHIFT--} {SHIFT--}"
  350. .byte 13
  351. .asc "              {CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}"
  352. .byte 174,13
  353. .asc "              {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}  {SHIFT--}"
  354. .byte 13
  355. .asc "              "
  356. .byte 171,96,177,178,123,96,177,178,123,96,177,178,96,189,13
  357. .asc "              {SHIFT--}  {SHIFT--}{SHIFT--}  {SHIFT--}{SHIFT--}  {SHIFT--}"
  358. .byte 13
  359. .asc "              "
  360. .byte 173,96,96,189,173,96,96,189,173,96,96,189,13
  361. .byte 13,13,13,13,13,13,18
  362. .asc "   f1=exit  f7=hint  f2=soln  f8=print  "
  363. .byte 0
  364. lda puzzle
  365. clc
  366. adc #128+49
  367. sta 1050
  368. rts
  369.  
  370. printpuzzle =*
  371.  
  372. lda puzzle
  373. asl
  374. tax
  375. lda defs,x
  376. sta zpe
  377. inx
  378. lda defs,x
  379. sta zpe+1
  380.  
  381. lda <1199
  382. sta zp
  383. lda >1199
  384. sta zp+1
  385.  
  386. lda <1199+54272
  387. sta zp2
  388. lda >1199+54272
  389. sta zp2+1
  390.  
  391. lda #0
  392. sta counter
  393. ldx #0
  394. - ldy #0
  395. - lda (zpe,x)
  396. cmp @"{SHIFT--}"
  397. beq ++
  398. sta (zp),y
  399. cmp #32
  400. bne +
  401. lda #1
  402. sta (zp2),y
  403. jmp ++
  404. + lda #13
  405. sta (zp2),y
  406. + jsr add1zpe
  407. iny
  408. cpy #14
  409. bne -
  410. jsr add80zp
  411. jsr add80zp2
  412. inc counter
  413. lda counter
  414. cmp #6
  415. bne --
  416. rts
  417.  
  418. printkeys =*
  419.  
  420. lda puzzle
  421. asl
  422. tax
  423. lda keys,x
  424. sta zpe
  425. inx
  426. lda keys,x
  427. sta zpe+1
  428.  
  429. lda <1756
  430. sta zp
  431. lda >1756
  432. sta zp+1
  433.  
  434. lda <1756+54272
  435. sta zp2
  436. lda >1756+54272
  437. sta zp2+1
  438.  
  439. ldx #0
  440. ldy #0
  441. - lda (zpe,x)
  442. sta (zp),y
  443. lda #1
  444. sta (zp2),y
  445. + jsr add1zpe
  446. iny
  447. iny
  448. cpy #18
  449. bne -
  450. rts
  451.  
  452. check =*
  453.  
  454. lda puzzle
  455. asl
  456. tax
  457. lda answer,x
  458. sta zpe
  459. inx
  460. lda answer,x
  461. sta zpe+1
  462.  
  463. lda <1199
  464. sta zp
  465. lda >1199
  466. sta zp+1
  467.  
  468. lda #0
  469. sta counter
  470. ldx #0
  471. - ldy #0
  472. - lda (zpe,x)
  473. cmp (zp),y
  474. beq +
  475. jmp input
  476. + jsr add1zpe
  477. iny
  478. cpy #10
  479. bne -
  480. jsr add80zp
  481. jsr add80zp
  482. inc counter
  483. lda counter
  484. cmp #3
  485. bne --
  486.  
  487. solve =*
  488.  
  489. lda #1
  490. sta counter
  491. - sta 646
  492. ldx #22
  493. ldy #0
  494. clc
  495. jsr plot
  496. jsr write
  497. .byte 18   
  498. .asc "               solved!!!                "
  499. .byte 0
  500. lda counter
  501. sta 56295
  502. jsr ringbell
  503. jsr delay
  504. jsr delay
  505. jsr delay
  506. jsr delay
  507. inc counter
  508. lda counter
  509. cmp #15
  510. bne - 
  511.  
  512. getf1 =*
  513.  
  514. ldx #22
  515. ldy #0
  516. clc
  517. jsr plot
  518. jsr write
  519. .byte 18,154
  520. .asc "               press f1                "
  521. .byte 0
  522. - jsr getin
  523. sta temp
  524. jsr checkm
  525. lda temp
  526. cmp #133
  527. bne -
  528. jmp start
  529.  
  530. solutions =*
  531.  
  532. lda puzzle
  533. asl
  534. tax
  535. lda answer,x
  536. sta zpe
  537. inx
  538. lda answer,x
  539. sta zpe+1
  540.  
  541. lda <1199
  542. sta zp
  543. lda >1199
  544. sta zp+1
  545.  
  546. lda <1199+54272
  547. sta zp2
  548. lda >1199+54272
  549. sta zp2+1
  550.  
  551. lda #0
  552. sta counter
  553. ldx #0
  554. - ldy #0
  555. - lda (zpe,x)
  556. cmp @"1"
  557. bcc +
  558. cmp #58
  559. bcs +
  560. clc
  561. adc #128
  562. sta (zp),y
  563. lda #10
  564. sta (zp2),y
  565. + jsr add1zpe
  566. iny
  567. cpy #10
  568. bne -
  569. jsr add80zp
  570. jsr add80zp2
  571. jsr add80zp
  572. jsr add80zp2
  573. inc counter
  574. lda counter
  575. cmp #3
  576. bne --
  577. jmp getf1
  578.  
  579. add80zp2 =*
  580.  
  581. clc
  582. lda zp2
  583. adc #80
  584. sta zp2
  585. lda zp2+1
  586. adc #0
  587. sta zp2+1
  588. rts
  589.  
  590. add1zpe =*
  591.  
  592. clc
  593. lda zpe
  594. adc #1
  595. sta zpe
  596. lda zpe+1
  597. adc #0
  598. sta zpe+1
  599. rts
  600.  
  601. counter .byte 0
  602. flag   .byte 1
  603. temp   .word 0
  604. tempc  .byte 0
  605. temp2  .byte 0
  606. puzzle .byte 0
  607. cflag  .byte 0
  608. row    .byte 0
  609. colm   .byte 0
  610.  
  611. defs   .word def1,def2,def3,def4,def5,def6
  612. answer .word hint1,hint2,hint3,hint4,hint5,hint6
  613. keys   .word key1,key2,key3,key4,key5,key6
  614.  
  615. key1 .scr "333468899"
  616. key2 .scr "133345679"
  617. key3 .scr "112234499"
  618. key4 .scr "122256689"
  619. key5 .scr "224456799"
  620. key6 .scr "145666779"
  621.  
  622. def1 .scr " {SHIFT--}*{SHIFT--} {SHIFT--}{SHIFT-*}{SHIFT--} {SHIFT--}63{SHIFT--} "
  623.      .scr "+{SHIFT--}{CBM-+}{SHIFT--}/{SHIFT--}{CBM-+}{SHIFT--}+{SHIFT--}    "
  624.      .scr " {SHIFT--}*{SHIFT--} {SHIFT--}/{SHIFT--} {SHIFT--} 8{SHIFT--} "
  625.      .scr "/{SHIFT--}{CBM-+}{SHIFT--}*{SHIFT--}{CBM-+}{SHIFT--}+{SHIFT--}    "
  626.      .scr " {SHIFT--}*{SHIFT--} {SHIFT--}+{SHIFT--} {SHIFT--}22{SHIFT--} "
  627.      .scr " 4{SHIFT--}{SHIFT--} 6{SHIFT--}{SHIFT--}16{SHIFT--}   "
  628.  
  629. def2 .scr " {SHIFT--}+{SHIFT--} {SHIFT--}*{SHIFT--} {SHIFT--}12{SHIFT--} "
  630.      .scr "+{SHIFT--}{CBM-+}{SHIFT--}*{SHIFT--}{CBM-+}{SHIFT--}+{SHIFT--}    "
  631.      .scr " {SHIFT--}{SHIFT-*}{SHIFT--} {SHIFT--}*{SHIFT--} {SHIFT--} 9{SHIFT--} "
  632.      .scr "+{SHIFT--}{CBM-+}{SHIFT--}{SHIFT-*}{SHIFT--}{CBM-+}{SHIFT--}*{SHIFT--}    "
  633.      .scr " {SHIFT--}*{SHIFT--} {SHIFT--}{SHIFT-*}{SHIFT--} {SHIFT--}31{SHIFT--} "
  634.      .scr "22{SHIFT--}{SHIFT--} 4{SHIFT--}{SHIFT--}16{SHIFT--}   "
  635.  
  636. def3 .scr " {SHIFT--}*{SHIFT--} {SHIFT--}*{SHIFT--} {SHIFT--} 8{SHIFT--} "
  637.      .scr "+{SHIFT--}{CBM-+}{SHIFT--}*{SHIFT--}{CBM-+}{SHIFT--}+{SHIFT--}    "
  638.      .scr " {SHIFT--}*{SHIFT--} {SHIFT--}{SHIFT-*}{SHIFT--} {SHIFT--} 7{SHIFT--} "
  639.      .scr "+{SHIFT--}{CBM-+}{SHIFT--}+{SHIFT--}{CBM-+}{SHIFT--}*{SHIFT--}    "
  640.      .scr " {SHIFT--}+{SHIFT--} {SHIFT--}{SHIFT-*}{SHIFT--} {SHIFT--} 8{SHIFT--} "
  641.      .scr "22{SHIFT--}{SHIFT--} 4{SHIFT--}{SHIFT--}16{SHIFT--}   "
  642.  
  643. def4 .scr " {SHIFT--}*{SHIFT--} {SHIFT--}{SHIFT-*}{SHIFT--} {SHIFT--} 3{SHIFT--} "
  644.      .scr "+{SHIFT--}{CBM-+}{SHIFT--}{SHIFT-*}{SHIFT--}{CBM-+}{SHIFT--}{SHIFT-*}{SHIFT--}    "
  645.      .scr " {SHIFT--}+{SHIFT--} {SHIFT--}*{SHIFT--} {SHIFT--}78{SHIFT--} "
  646.      .scr "*{SHIFT--}{CBM-+}{SHIFT--}*{SHIFT--}{CBM-+}{SHIFT--}*{SHIFT--}    "
  647.      .scr " {SHIFT--}/{SHIFT--} {SHIFT--}*{SHIFT--} {SHIFT--} 1{SHIFT--} "
  648.      .scr "20{SHIFT--}{SHIFT--} 2{SHIFT--}{SHIFT--} 3{SHIFT--}   "
  649.  
  650. def5 .scr " {SHIFT--}+{SHIFT--} {SHIFT--}{SHIFT-*}{SHIFT--} {SHIFT--}11{SHIFT--} "
  651.      .scr "+{SHIFT--}{CBM-+}{SHIFT--}+{SHIFT--}{CBM-+}{SHIFT--}*{SHIFT--}    "
  652.      .scr " {SHIFT--}+{SHIFT--} {SHIFT--}+{SHIFT--} {SHIFT--}11{SHIFT--} "
  653.      .scr "+{SHIFT--}{CBM-+}{SHIFT--}{SHIFT-*}{SHIFT--}{CBM-+}{SHIFT--}*{SHIFT--}    "
  654.      .scr " {SHIFT--}{SHIFT-*}{SHIFT--} {SHIFT--}*{SHIFT--} {SHIFT--}16{SHIFT--} "
  655.      .scr "22{SHIFT--}{SHIFT--} 6{SHIFT--}{SHIFT--}32{SHIFT--}   "
  656.  
  657. def6 .scr " {SHIFT--}+{SHIFT--} {SHIFT--}{SHIFT-*}{SHIFT--} {SHIFT--}14{SHIFT--} "
  658.      .scr "*{SHIFT--}{CBM-+}{SHIFT--}/{SHIFT--}{CBM-+}{SHIFT--}+{SHIFT--}    "
  659.      .scr " {SHIFT--}+{SHIFT--} {SHIFT--}*{SHIFT--} {SHIFT--}70{SHIFT--} "
  660.      .scr "{SHIFT-*}{SHIFT--}{CBM-+}{SHIFT--}+{SHIFT--}{CBM-+}{SHIFT--}*{SHIFT--}    "
  661.      .scr " {SHIFT--}*{SHIFT--} {SHIFT--}{SHIFT-*}{SHIFT--} {SHIFT--}37{SHIFT--} "
  662.      .scr "30{SHIFT--}{SHIFT--} 8{SHIFT--}{SHIFT--}40{SHIFT--}   "
  663.  
  664. hint1 .scr "9{SHIFT--}*{SHIFT--}8{SHIFT--}{SHIFT-*}{SHIFT--}9{SHIFT--}"
  665.       .scr "3{SHIFT--}*{SHIFT--}8{SHIFT--}/{SHIFT--}3{SHIFT--}"
  666.       .scr "3{SHIFT--}*{SHIFT--}6{SHIFT--}+{SHIFT--}4{SHIFT--}"
  667.  
  668. hint2 .scr "9{SHIFT--}+{SHIFT--}3{SHIFT--}*{SHIFT--}1{SHIFT--}"
  669.       .scr "6{SHIFT--}{SHIFT-*}{SHIFT--}3{SHIFT--}*{SHIFT--}3{SHIFT--}"
  670.       .scr "7{SHIFT--}*{SHIFT--}5{SHIFT--}{SHIFT-*}{SHIFT--}4{SHIFT--}"
  671.  
  672. hint3 .scr "4{SHIFT--}*{SHIFT--}1{SHIFT--}*{SHIFT--}2{SHIFT--}"
  673.       .scr "9{SHIFT--}*{SHIFT--}1{SHIFT--}{SHIFT-*}{SHIFT--}2{SHIFT--}"
  674.       .scr "9{SHIFT--}+{SHIFT--}3{SHIFT--}{SHIFT-*}{SHIFT--}4{SHIFT--}"
  675.  
  676. hint4 .scr "2{SHIFT--}*{SHIFT--}6{SHIFT--}{SHIFT-*}{SHIFT--}9{SHIFT--}"
  677.       .scr "8{SHIFT--}+{SHIFT--}5{SHIFT--}*{SHIFT--}6{SHIFT--}"
  678.       .scr "2{SHIFT--}/{SHIFT--}2{SHIFT--}*{SHIFT--}1{SHIFT--}"
  679.  
  680. hint5 .scr "6{SHIFT--}+{SHIFT--}9{SHIFT--}{SHIFT-*}{SHIFT--}4{SHIFT--}"
  681.       .scr "7{SHIFT--}+{SHIFT--}2{SHIFT--}+{SHIFT--}2{SHIFT--}"
  682.       .scr "9{SHIFT--}{SHIFT-*}{SHIFT--}5{SHIFT--}*{SHIFT--}4{SHIFT--}"
  683.  
  684. hint6 .scr "9{SHIFT--}+{SHIFT--}6{SHIFT--}{SHIFT-*}{SHIFT--}1{SHIFT--}"
  685.       .scr "4{SHIFT--}+{SHIFT--}6{SHIFT--}*{SHIFT--}7{SHIFT--}"
  686.       .scr "6{SHIFT--}*{SHIFT--}7{SHIFT--}{SHIFT-*}{SHIFT--}5{SHIFT--}"
  687.  
  688. titlescreen =*
  689.  
  690. jsr write
  691. .byte 147,31,146,5,176
  692. .asc "{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
  693. .byte 174
  694. .byte 125,18,156
  695. .asc "              cross calc              "
  696. .byte 146,5,125
  697. .byte 171
  698. .asc "{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
  699. .byte 179
  700. .byte 125,155,18
  701. .asc "                                      "
  702. .byte 5,146,125
  703. .byte 125,155,18
  704. .asc "                                      "
  705. .byte 5,146,125
  706. .byte 125,155,18
  707. .asc "                                      "
  708. .byte 5,146,125
  709. .byte 125,155,18
  710. .asc "                                      "
  711. .byte 5,146,125
  712. .byte 125,155,18
  713. .asc "             1] puzzle #1             "
  714. .byte 5,146,125
  715. .byte 125,155,18
  716. .asc "             2] puzzle #2             "
  717. .byte 5,146,125
  718. .byte 125,155,18
  719. .asc "             3] puzzle #3             "
  720. .byte 5,146,125
  721. .byte 125,155,18
  722. .asc "             4] puzzle #4             "
  723. .byte 5,146,125
  724. .byte 125,155,18
  725. .asc "             5] p